home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 6
/
006.d81
/
jump start
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
36 lines
10 rem intro to jump
20 print"[147]":poke53281,0:poke53280,5:printchr$(14)
30 c$="**** [202][213][205][208] ****":gosub10000:print""
40 c$="written by":gosub10000:print:print
50 c$="[158][193]ndrew [211]. [208]akerski":gosub10000
55 c$="[156]60 [200]olly [210]oad":gosub10000
65 c$="[195]oatesville, [208][193] 19320":gosub10000
66 gosub1000
100 print"[147] [217]ou are now in an underground ":print
110 print"complex filled with treasure and deadly":print
120 print"mutant bugs. [195]an you escape??":print
130 print" [212]he main control is a joystick in ":print
140 print"[208][207][210][212] 2. [208]ressing the button makes your":print
150 print"animated man jump into the air.":print
160 print" [201]n an emergency, press [198]7 to freeze a":print
170 print"bug, but he revives in a few moments ":print
180 print"and comes after you twice as fast.":print:gosub1000
190 print"[147] [212]his game has 'doors' that ":print
200 print"magically open only after the player ":print
210 print"has taken some action. ":print:print
220 print" [208]ressing the '[211]' key stops the game ":print
230 print"and exits to [194][193][211][201][195] ([206]ot to [204][207][193][196][211][212][193][210]).":print
240 print"[203]eys '1' and '2' change the on screen":print
250 print"colors if you wish.":gosub1000
300 goto63000
1000 poke783,peek(783)and254
1010 poke781,24:poke782,13:sys65520:print"<press a key>"
1020 poke198,0:wait198,1:geta$:return
9999 end
10000 rem centering routine
10010 t=20-len(c$)/2
10020 printtab(t)c$
10030 return
63000 print"[147]load"chr$(34)"jump"chr$(34)",8,1":print"sys32768"
63010 poke198,0:poke631,13:poke632,13:poke198,2:end